home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / defs2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-07-22  |  15.1 KB  |  304 lines
  1. (SYSTEM::VERSION '(19071996.))
  2. #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  3.    "LISP"
  4.   )
  5. #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01)
  6.    (NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE DEFINE-SYMBOL-MACRO
  7.      PRINT-UNREADABLE-OBJECT DECLAIM DESTRUCTURING-BIND COMPLEMENT CONSTANTLY
  8.      WITH-STANDARD-IO-SYNTAX WITH-HASH-TABLE-ITERATOR
  9.   ))
  10. #Y(#:TOP-LEVEL-FORM-3 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01)
  11.    "SYSTEM"
  12.   )
  13. #Y(#:TOP-LEVEL-FORM-4
  14.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  15.    NTH-VALUE REMOVE-OLD-DEFINITIONS MACRO
  16.    #Y(NTH-VALUE
  17.       #119Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 1C 9D 5B 77 9E
  18.             5B 5B 77 AB 8E 0F 07 AB DA 8F 01 32 80 46 E2 AC E3 AD 7A 02 60 03
  19.             19 05 AC 2E 01 19 03 DC AB 60 02 19 05 AB DA 8F 01 2D 74 37 01 71
  20.             92 AA 7A 01 62 AE 1A 0E 37 01 71 92 AA 83 03 AA 83 02 16 01 85 00
  21.             AA 8E 94 6E DD AD B0 DE DF A1 79 7A 02 B1 60 05 19 09 AB DB 8F 01
  22.             2F 49 E0 AB CC 61 02 19 05
  23.            )
  24.       3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE
  25.       PROGN (NIL) NTH MULTIPLE-VALUE-LIST
  26.   )  )
  27. #Y(#:TOP-LEVEL-FORM-5
  28.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  29.    FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
  30.    #Y(FUNCTION-LAMBDA-EXPRESSION
  31.       #81Y(00 00 00 00 01 00 00 00 00 02 AB 8E 0C 04 AB 8D 20 2A AB 8E 0D 2B D8
  32.            AC D9 31 2F 79 AC DA 71 2F AD DB 71 2F AE DC 71 2F AF DD 71 2F B0 DE
  33.            71 2F 72 05 00 AD DF 31 2F 14 3F 03 19 02 62 63 00 1A 76 E0 E1 AD E2
  34.            E3 E4 E5 E6 6D 03 0F E8 B2 32 06 1F
  35.           )
  36.       LAMBDA 1. 4. 5. 6. 7. 8. 0. TYPE-ERROR :DATUM :EXPECTED-TYPE FUNCTION
  37.       "~S: ~S is not a function" "~S: ~S ist keine Funktion."
  38.       "~S : ~S n'est pas une fonction." LANGUAGE FUNCTION-LAMBDA-EXPRESSION
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-6
  41.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  42.    DEFPACKAGE REMOVE-OLD-DEFINITIONS MACRO
  43.    #Y(DEFPACKAGE
  44.       #627Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 80 49 00 2A 01
  45.             9E 5B 5A 0B 00 00 9E 5B 78 AB 6C 02 01 67 02 00 C6 33 0B 02 00 9D
  46.             2A 01 01 06 DC 01 02 00 0B 09 00 14 B4 6C 05 01 B7 62 AB 8B 97 81
  47.             56 86 01 00 14 8D 0E 81 0D DF F0 F1 F2 6D 03 0B E4 67 13 00 CF 14
  48.             AF 32 04 1F AC 2E 01 19 03 9B 5A 25 06 80 E0 DF E0 E1 E2 6D 03 0B
  49.             E4 67 13 00 D0 1A 80 DE 91 0C 6E 7D 0C 1A 81 00 DF E6 E7 E8 6D 03
  50.             0B E4 67 13 00 D4 1A 80 C7 91 0B 6E 7D 0B 1A 80 E9 94 00 62 1A 0A
  51.             86 01 00 14 C6 73 83 0C 82 01 AB 8C 97 72 16 02 1A 80 D1 94 00 62
  52.             1A 0D 86 01 00 14 04 11 73 A0 73 83 0B 82 01 AB 8C 97 6F 16 02 1A
  53.             80 B6 9B 5B 77 C6 73 9C 5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73
  54.             9E 79 83 0B 82 01 AB 8C 97 6D 16 03 1A 80 93 94 00 62 1A 0A 86 01
  55.             00 14 C6 73 83 09 82 01 AB 8C 97 72 16 02 7C 06 1A 80 79 9B 5B 77
  56.             C6 73 9C 5B 78 62 1A 0F 86 01 00 14 04 12 73 A1 73 9E 79 83 08 82
  57.             01 AB 8C 97 6D 16 03 1A 80 56 94 00 62 1A 0D 86 01 00 14 04 11 73
  58.             A0 73 83 06 82 01 AB 8C 97 6F 16 02 1A 3C 94 00 62 1A 31 DF EA EB
  59.             EC 6D 03 0B E4 67 13 00 9F 5A 14 32 03 1F 93 00 8D 8F FF 03 DF ED
  60.             EE EF 6D 03 0B E4 67 13 00 CF 1A FE EA 86 01 00 14 04 11 73 83 05
  61.             82 01 AB 8C 97 71 16 02 82 01 1A FE BB 64 21 64 1F 64 22 B6 72 00
  62.             17 7A 02 67 12 00 7A 03 60 01 1A 80 42 16 02 7E 02 0B 00 AA AC 32
  63.             00 19 16 01 B1 80 4C 07 B0 80 4C 06 AF 80 4C 05 91 03 03 AE 31 4C
  64.             FA AC 80 4C 02 AB 80 4C 01 AA 80 4C 00 F3 F4 F5 67 10 00 64 1E 64
  65.             1F B7 7A 02 03 20 7B 04 91 09 FF A9 00 14 62 B4 1A 23 64 24 64 1F
  66.             B5 7A 02 67 14 00 7A 03 60 01 1A 20 93 00 64 23 93 01 94 02 67 17
  67.             00 7A 04 83 02 16 01 82 00 9B 20 6A 16 01 AA 7F A8 00 91 09 51 00
  68.             14 62 B3 1A 13 93 00 64 25 93 01 94 02 67 19 00 7A 04 83 02 16 01
  69.             82 00 9B 20 6A 16 01 AA 7F A8 00 62 B3 1A 20 64 27 64 1F B4 7A 02
  70.             67 17 00 7A 03 60 01 1A 1D 93 00 64 26 AB 67 19 00 7A 03 83 02 16
  71.             01 82 00 9B 20 6D 16 01 AA 7F A8 00 91 08 54 00 14 64 28 67 17 00
  72.             7A 02 7A 01 32 07 23 61 03 19 11
  73.            )
  74.       2. MACRO-CALL-ERROR
  75.       #Y(LISP::DEFPACKAGE-CHECK-SYMNAME
  76.          #41Y(00 00 00 00 01 00 00 00 00 02 AB 8D 0A 13 AB 8D 09 12 D9 DA DB DC
  77.               6D 03 05 DE 68 00 01 AF 32 03 1F 9C 19 02 AB 31 8E 19 02
  78.              )
  79.          NIL PROGRAM-ERROR
  80.          "~S ~A: symbol name ~S should be a string or a symbol"
  81.          "~S ~A: Symbol-Name mu▀ ein String oder Symbol sein, nicht ~S."
  82.          "~S ~A : Le nom d'un symbole doit Ωtre une chaεne ou un symbole et non ~S."
  83.          LANGUAGE DEFPACKAGE
  84.         )
  85.       #Y(LISP::DEFPACKAGE-CHECK-PACKNAME
  86.          #38Y(00 00 00 00 01 00 00 00 00 02 AB 8D 0A 10 AB 8D 09 0F D8 D9 DA DB
  87.               6D 03 04 DD AE 32 02 1F 9C 19 02 AB 31 8E 19 02
  88.              )
  89.          PROGRAM-ERROR "~S: package name ~S should be a string or a symbol"
  90.          "~S: Package-Name mu▀ ein String oder Symbol sein, nicht ~S."
  91.          "~S : Le nom d'un paquetage doit Ωtre une chaεne ou un symbole et non ~S."
  92.          LANGUAGE DEFPACKAGE
  93.         )
  94.       ("LISP")
  95.       #Y(LISP::DEFPACKAGE-RECORD-SYMNAME
  96.          #46Y(00 00 00 00 01 00 00 00 00 02 AB 68 00 01 D9 37 02 8B B8 0B AB 07
  97.               00 01 5C 0C 00 01 9C 19 02 DA DB DC DD 6D 03 06 DF 68 01 01 AF 32
  98.               03 1F
  99.              )
  100.          NIL #.#'STRING= PROGRAM-ERROR
  101.          "~S ~A: the symbol ~A must not be specified more than once"
  102.          "~S ~A: Symbol ~A darf nur einmal aufgefⁿhrt werden."
  103.          "~S ~A : Le symbole ~A ne peut Ωtre mentionnΘ qu'une seule fois."
  104.          LANGUAGE DEFPACKAGE
  105.         )
  106.       #S(HASH-TABLE EQ (:EXPORT . 221.) (:INTERN . 195.) (:IMPORT-FROM . 160.)
  107.          (:USE . 134.) (:SHADOWING-IMPORT-FROM . 99.) (:SHADOW . 72.)
  108.          (:NICKNAMES . 48.) (:DOCUMENTATION . 40.) (:SIZE . 17.)
  109.         )
  110.       PROGRAM-ERROR "~S ~A: the ~S option must not be given more than once"
  111.       "~S ~A: Die Option ~S darf nur einmal angegeben werden."
  112.       "~S ~A : L'option ~S ne doit apparaεtre qu'une seule fois." LANGUAGE
  113.       DEFPACKAGE :SIZE "~S ~A: the ~S option must not be given more than once"
  114.       "~S ~A: Die Option ~S darf nur einmal angegeben werden."
  115.       "~S ~A : L'option ~S ne doit apparaεtre qu'une seule fois."
  116.       :DOCUMENTATION "~S ~A: unknown option ~S"
  117.       "~S ~A: Die Option ~S gibt es nicht." "~S ~A : Option ~S non reconnue."
  118.       "~S ~A: invalid syntax in ~S option: ~S"
  119.       "~S ~A: Falsche Syntax in ~S-Option: ~S"
  120.       "~S ~A : Mauvaise syntaxe dans l'option ~S: ~S"
  121.       "~S ~A: not a ~S option: ~S" "~S ~A: Das ist keine ~S-Option: ~S"
  122.       "~S ~A : Ceci n'est pas une option ~S: ~S" EVAL-WHEN (LOAD COMPILE EVAL)
  123.       %IN-PACKAGE :NICKNAMES QUOTE (:USE 'NIL) SHADOW #.#'MAKE-SYMBOL
  124.       SHADOWING-IMPORT-CERROR USE-PACKAGE IMPORT-CERROR INTERN INTERN-EXPORT
  125.       FIND-PACKAGE
  126.   )  )
  127. #Y(#:TOP-LEVEL-FORM-7
  128.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  129.    FIND-SYMBOL-CERROR REMOVE-OLD-DEFINITIONS
  130.    #Y(FIND-SYMBOL-CERROR
  131.       #46Y(00 00 00 00 03 00 00 00 00 04 AD AD 30 D9 41 02 91 00 18 D8 D9 DA 6D
  132.            03 03 DC DD DE 6D 03 03 DF B0 B2 B4 2C 06 08 AF AF 7F D8 01 9C 19 06
  133.           )
  134.       "This symbol will be created." "Dieses Symbol wird erzeugt."
  135.       "Ce symbole sera crΘΘ." LANGUAGE "~S ~A: There is no symbol ~A::~A ."
  136.       "~S ~A: Es gibt kein Symbol ~A::~A ."
  137.       "~S ~A : Il n'y a pas de symbole ~A::~A ." DEFPACKAGE CERROR
  138.   )  )
  139. #Y(#:TOP-LEVEL-FORM-8
  140.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  141.    SHADOWING-IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  142.    #Y(SHADOWING-IMPORT-CERROR
  143.       #21Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 6D 03 00 AC 30 DE 19 04)
  144.       FIND-SYMBOL-CERROR
  145.   )  )
  146. #Y(#:TOP-LEVEL-FORM-9
  147.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  148.    IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  149.    #Y(IMPORT-CERROR
  150.       #21Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 6D 03 00 AC 30 DD 19 04)
  151.       FIND-SYMBOL-CERROR
  152.   )  )
  153. #Y(#:TOP-LEVEL-FORM-10
  154.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  155.    INTERN-EXPORT REMOVE-OLD-DEFINITIONS
  156.    #Y(INTERN-EXPORT
  157.       #40Y(00 00 00 00 02 00 00 00 00 03 62 AD 1A 0C 93 00 AA AF 70 D8 83 02 16
  158.            01 82 00 9B 20 71 16 01 AA 7F A8 00 AC 30 DB 19 03
  159.   )  )    )
  160. #Y(#:TOP-LEVEL-FORM-11
  161.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  162.    DEFINE-SYMBOL-MACRO REMOVE-OLD-DEFINITIONS MACRO
  163.    #Y(DEFINE-SYMBOL-MACRO
  164.       #88Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2E 35 9D 5B 77 9E 5B
  165.            5B 77 AB 8E 09 2F E0 62 E1 E2 E3 E4 B1 7A 02 7A 02 E5 E4 B2 7A 02 7A
  166.            02 E6 E4 B3 7A 02 E7 E4 B4 7A 02 7A 02 7A 03 7A 05 E4 AF 7A 02 60 04
  167.            19 05 AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF AE 32 02 1F
  168.           )
  169.       3. MACRO-CALL-ERROR PROGRAM-ERROR
  170.       "~S: the name of a symbol macro must be a symbol, not ~S"
  171.       "~S: Der Name eines Symbol-Macros mu▀ ein Symbol sein, nicht: ~S"
  172.       "~S : Le nom d'un macro symbole doit Ωtre un symbole et non ~S" LANGUAGE
  173.       DEFINE-SYMBOL-MACRO LET EVAL-WHEN (COMPILE LOAD EVAL)
  174.       CHECK-NOT-SPECIAL-VARIABLE-P QUOTE MAKUNBOUND SET MAKE-SYMBOL-MACRO
  175.   )  )
  176. #Y(#:TOP-LEVEL-FORM-12
  177.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  178.    CHECK-NOT-SPECIAL-VARIABLE-P REMOVE-OLD-DEFINITIONS
  179.    #Y(CHECK-NOT-SPECIAL-VARIABLE-P
  180.       #29Y(00 00 00 00 01 00 00 00 00 02 AB 8D 91 03 00 19 02 D8 D9 DA DB 6D 03
  181.            04 DD AE 32 02 1F
  182.           )
  183.       ERROR "~S: the symbol ~S names a global variable"
  184.       "~S: Das Symbol ~S benennt eine globale Variable."
  185.       "~S : Le symbole ~S est le nom d'une variable globale." LANGUAGE
  186.       DEFINE-SYMBOL-MACRO
  187.   )  )
  188. #Y(#:TOP-LEVEL-FORM-13
  189.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  190.    PRINT-UNREADABLE-OBJECT REMOVE-OLD-DEFINITIONS MACRO
  191.    #Y(PRINT-UNREADABLE-OBJECT
  192.       #59Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1A 9D 5B 77 9E 5B
  193.            5A 5B 78 9F 5B 78 AB DA 30 64 DB 91 01 0C 00 14 9F 61 02 19 06 AC 2E
  194.            01 19 03 DC DD 62 9F 7B 02 60 02 1A 6B
  195.           )
  196.       2. MACRO-CALL-ERROR (:IDENTITY :TYPE) WRITE-UNREADABLE FUNCTION LAMBDA
  197.   )  )
  198. #Y(#:TOP-LEVEL-FORM-14
  199.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  200.    DECLAIM REMOVE-OLD-DEFINITIONS MACRO
  201.    #Y(DECLAIM
  202.       #45Y(00 00 00 00 01 00 01 00 00 08 94 02 D8 62 AC 1A 0F 93 00 D9 DA AC 7A
  203.            02 7A 02 83 02 16 01 82 00 9B 20 6E 16 01 AA 30 A8 16 01 5C 19 04
  204.           )
  205.       PROGN PROCLAIM QUOTE
  206.   )  )
  207. #Y(#:TOP-LEVEL-FORM-15
  208.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  209.    DESTRUCTURING-BIND REMOVE-OLD-DEFINITIONS MACRO
  210.    #Y(DESTRUCTURING-BIND
  211.       #143Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 72 9D
  212.             5B 77 9E 5B 5B 77 9F 5B 5B 78 AA 62 B0 30 63 41 02 92 00 06 DA 9C
  213.             79 60 01 F6 C6 10 04 C6 10 05 00 10 06 00 10 07 00 10 08 00 10 09
  214.             C0 E2 E3 E2 2C 04 0C E2 DB 6F 0D E6 6A 07 71 4C BF 6A 08 71 4C C2
  215.             32 03 23 7B 02 92 01 16 E7 AC E8 E2 E9 6A 05 0E 06 1B 21 0E 04 79
  216.             7A 02 7A 03 AD 60 04 F6 EA E2 65 19 7A 02 7A 01 AC 60 03 16 02 12
  217.             06 19 08 AC 2E 01 19 03 00 1A 5E
  218.            )
  219.       3. MACRO-CALL-ERROR DECLARE 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST
  220.       %KEYWORD-TESTS %DEFAULT-FORM <DESTRUCTURING-FORM> DESTRUCTURING-BIND
  221.       ANALYZE1 MAKE-LENGTH-TEST LET* IF DESTRUCTURING-ERROR QUOTE LET
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-16
  224.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01)
  225.    DESTRUCTURING-ERROR REMOVE-OLD-DEFINITIONS
  226.    #Y(DESTRUCTURING-ERROR
  227.       #32Y(00 00 00 00 02 00 00 00 00 03 93 01 94 02 D8 D9 DA DB 6D 03 04 AC AE
  228.            AE 71 04 AF AF B4 32 05 1F
  229.           )
  230.       ERROR
  231.       "The object to be destructured should be a list with ~:[at least ~*~S~;~:[from ~S to ~S~;~S~]~] elements, not ~4@*~S."
  232.       "Das zu zerlegende Objekt sollte eine Liste mit ~:[mindestens ~*~S~;~:[~S bis ~S~;~S~]~] Elementen sein, nicht ~4@*~S."
  233.       "L'objet α dΘmonter devrait Ωtre une liste ~:[d'au moins ~*~S~;de ~:[~S α ~S~;~S~]~] ΘlΘments et non ~4@*~S."
  234.       LANGUAGE
  235.   )  )
  236. #Y(#:TOP-LEVEL-FORM-17
  237.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPLEMENT
  238.    REMOVE-OLD-DEFINITIONS
  239.    #Y(COMPLEMENT
  240.       #23Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03
  241.           )
  242.       #Y(LISP::COMPLEMENT-1
  243.          #19Y(00 00 00 00 00 00 00 00 01 16 68 00 01 9D 36 00 58 19 02) NIL
  244.   )  )  )
  245. #Y(#:TOP-LEVEL-FORM-18
  246.    #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CONSTANTLY
  247.    REMOVE-OLD-DEFINITIONS
  248.    #Y(CONSTANTLY
  249.       #23Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 2B 00 01 19 03
  250.           )
  251.       #Y(LISP::CONSTANTLY-1 #15Y(00 00 00 00 00 00 00 00 01 16 07 00 01 19 02)
  252.          NIL
  253.   )  )  )
  254. #Y(#:TOP-LEVEL-FORM-19
  255.    #35Y(00 00 00 00 00 00 00 00 00 01 D8 70 D0 D9 8C 62 0B AA D9 70 52 8D 04 04
  256.         D9 DA 2F 03 D9 AB 31 85 C4 19 02
  257.        )
  258.    #1="COMMON-LISP-USER" *COMMON-LISP-USER-PACKAGE*
  259.    (DEFCONSTANT *COMMON-LISP-USER-PACKAGE* (FIND-PACKAGE #1#)) CONSTANT-WARNING
  260.   )
  261. #Y(#:TOP-LEVEL-FORM-20
  262.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  263.    WITH-STANDARD-IO-SYNTAX REMOVE-OLD-DEFINITIONS MACRO
  264.    #Y(WITH-STANDARD-IO-SYNTAX
  265.       #43Y(00 00 00 00 01 00 01 00 00 08 3C 01 94 02 AA 62 AE 30 63 41 02 D8 D9
  266.            91 02 0A 00 14 AE 32 02 23 61 02 19 06 DA 9E 79 60 01 1A 70
  267.           )
  268.       LET
  269.       ((*PACKAGE* *COMMON-LISP-USER-PACKAGE*) (*PRINT-ARRAY* T)
  270.         (*PRINT-BASE* 10.) (*PRINT-CASE* ':UPCASE) (*PRINT-CIRCLE* NIL)
  271.         (*PRINT-ESCAPE* T) (*PRINT-GENSYM* T) (*PRINT-LENGTH* NIL)
  272.         (*PRINT-LEVEL* NIL) (*PRINT-PRETTY* NIL) (*PRINT-RADIX* NIL)
  273.         (*PRINT-READABLY* T) (*PRINT-CLOSURE* NIL) (*PRINT-RPARS* T)
  274.         (*PRINT-INDENT-LISTS* 2.) (*PRIN-STREAM* NIL) (*PRIN-LINELENGTH* 79.)
  275.         (*READ-BASE* 10.) (*READ-DEFAULT-FLOAT-FORMAT* 'SINGLE-FLOAT)
  276.         (*READ-SUPPRESS* NIL) (*READTABLE* (COPY-READTABLE NIL))
  277.       )
  278.       DECLARE
  279.   )  )
  280. #Y(#:TOP-LEVEL-FORM-21
  281.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  282.    WITH-HASH-TABLE-ITERATOR REMOVE-OLD-DEFINITIONS MACRO
  283.    #Y(WITH-HASH-TABLE-ITERATOR
  284.       #85Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 33 9D 5B 5A 77 9E
  285.            5B 5A 5B 77 9F 5B 78 AC 8E 09 28 37 01 71 92 DF AB E0 AF 7A 02 7A 02
  286.            7A 01 E1 B0 62 E2 E3 B1 7A 02 7A 02 7A 03 7A 01 A0 7B 02 60 03 19 07
  287.            AC 2E 01 19 03 DA DB DC 6D 03 05 DE AE 32 02 1E
  288.           )
  289.       2. MACRO-CALL-ERROR "~S: macro name should be a symbol, not ~S"
  290.       "~S: Macroname mu▀ ein Symbol sein, nicht ~S"
  291.       "~S : le nom de macro n'est pas un symbole: ~S" LANGUAGE
  292.       WITH-HASH-TABLE-ITERATOR LET HASH-TABLE-ITERATOR MACROLET QUOTE
  293.       HASH-TABLE-ITERATE
  294.   )  )
  295. #Y(#:TOP-LEVEL-FORM-22
  296.    #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01)
  297.    LAMBDA REMOVE-OLD-DEFINITIONS MACRO
  298.    #Y(LAMBDA
  299.       #29Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 06 DA AD 60 02 19
  300.            03 AC 2E 01 19 03
  301.           )
  302.       2. MACRO-CALL-ERROR FUNCTION
  303.   )  )
  304.